home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / PATH_ENV / ENV.D next >
Encoding:
Modula Definition  |  1991-04-06  |  707 b   |  41 lines
  1. DEFINITION MODULE Env;
  2.  
  3. (* Von Ulrich Kaiser *)
  4.  
  5. (*$I+,Z+ *)
  6.  
  7. CONST MaxEnv = 32768; (* arbitrary limit *)
  8.  
  9. (* Env.Range *)
  10.  
  11. TYPE Range = [0..(MaxEnv - 1)];
  12.  
  13. (* Env.Pointer *)
  14.  
  15. TYPE Pointer = POINTER TO ARRAY Range OF CHAR;
  16.  
  17. (* Env.Ptr, for C-like main(argc,argv,penv) *)
  18.  
  19. VAR Ptr: Pointer;
  20.  
  21. (* Env.Get(), C-like getenv() *)
  22.  
  23. PROCEDURE Get(REF Var: ARRAY OF CHAR): Pointer;
  24.  
  25. (* Env.Length() *)
  26.  
  27. PROCEDURE Length(REF Var: ARRAY OF CHAR): Range;
  28.  
  29. (* Env.Assign() *)
  30.  
  31. PROCEDURE Assign(REF Var: ARRAY OF CHAR; VAR Str: ARRAY OF CHAR);
  32.  
  33. (* Env.Split() *)
  34.  
  35. TYPE SplitProc = PROCEDURE(REF ARRAY OF CHAR);
  36.  
  37. PROCEDURE Split(REF Var: ARRAY OF CHAR; Work: SplitProc);
  38.  
  39. END Env.
  40.  
  41.